﻿Imports Microsoft.Reporting.WinForms
Imports ControleMatricula.Negocio

Public Class FrmRelMontanteRecebimento
    Dim db As New DataClassesDataContext()

    Private Sub FrmRelMontanteRecebimento_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        MontarComboEspecifica(cmbEspecifica)
        cmbEspecifica.SelectedIndex = -1
    End Sub

    Private Sub btnConfirma_Click(sender As System.Object, e As System.EventArgs) Handles btnConfirma.Click

        Dim ListEspecifica As List(Of SPEspecificaConsultarResult)
        ListEspecifica = db.SPEspecificaConsultar(0, Convert.ToString(cmbEspecifica.Text)).ToList()

        Dim Especifica As Integer = 0

        If cmbEspecifica.Text <> String.Empty Then
            Especifica = cmbEspecifica.SelectedValue
        End If

        Dim ListMontante As List(Of SPRelMontantePagamentoResult)
        ListMontante = db.SPRelMontantePagamento(Especifica, CDate(DTInicial.Text), CDate(DTFinal.Text)).ToList()

        Dim dtSource = New ReportDataSource("DSRelMontantePagamento", ListMontante)

        Dim rpvMontanteRecebimento = RelMontanteRecebimento.rpvMontanteRecebimento

        rpvMontanteRecebimento.LocalReport.ReportPath = "Relatorios\MontanteRecebimento.rdlc"
        rpvMontanteRecebimento.LocalReport.DataSources.Clear()
        rpvMontanteRecebimento.LocalReport.DataSources.Add(dtSource)
        rpvMontanteRecebimento.Visible = True

        RelMontanteRecebimento.Show()


    End Sub
End Class